


C64-FORTH 
User’s Guide & Reference Manual 


PREFACE 


C64-FORTH i a fourth-generation programming language that in many 
respects is very different from other lanquages. In relation to its size, its 
power is unequalled. In just 8K, a typical minicomputer FORTH version 
supplies structured, compact and extremely fast code, virtual memory, a 
resident macro assembler and a resident editor, as well as multitasking 
capability. FORTH is even able to extend itself and its compiler. It is a meta- 
language. 


This manual does not pretend to be a textbook on the ort of FORTH 
programming. Instead, we have assembled a literature list for your 
convenience. 


The first section of this manual will help you to get started. C64-FORTH's 
system peculiarities are described in detail. Of course C64-FORTH is very 
standardized, and conforms to fig-FORTH except for some minor 
improvements. 


The second part isa glossary of all words in C64-FORTH. Every command is 
described, parameters and results are shown. This section comprises the 
main part of this manual, since there are several hundred commands in 


C64-FORTH. 


The third part shows you how the system is made to accept FORTH-79 
standard code. This is a very useful feature which enables you to write and 
use standardized high-level] FORTH code which is totally transportable 
between FORTH-79 standard systems. 


PART 1 — GENERAL INFORMATION 


C64-FORTH is a highly capable language that operates from ROM and is 
based on fig-FORTH. It is nearly identical to PET-FORTH, a professional! 
FORTH version which runs on the Commodore CBM business computer 
series. C64-FORTH contains everything in PET-FORTH’s Kernel, plus its 
standard System Extensions. This gives you 100% compatibility. 


C64-FORTH also contains a resident text editor and a resident macro 
assembler. They reside in precompiled form in the cartridge and are 
always present in the system. Please refer to the second part of this manual 
for more information on the editor. The assembler is described in detail in 
the PET-FORTH manual, which is available from your dealer or directly 
from us. 


FORTH, during program development, is a disk based language; it is not 
normally designed to work with cassette. C64-FORTH has extensions, 
however, to make it possible to save and reload workspaces from cassette. 
If you plan to do much programming, you are strongly advised to purchase 
a diskette unit. You will then enjoy the full power of C64-FORTH. 


C64-FORTH configures the Commodore 64 in such a fashion that you 
always will have 30 kilobytes of memory available for your data ond 
programs. This is a significant amount of memory, since well-written 
FORTH code is extremely compact. Foran expertenced programmer, it isa 
relatively easy task to write words to access the remaining 32K RAM. 


C64-FORTH. uses three 1024-byte disk buffers, located at $C000. Video 
memory is located at $0400. You will not need o memory map, since all 
system addresses are available from the FORTH system itself in the form of 
various constants, variables and address computation words. 


By pressing the STOP and RESTORE keys simultaneously, C64-FORTH will 
execute a warm start, thereby interrupting whatever program currently is 
running. This is a very useful feature if you accidentally cause a program to 
loop endlessly, or if the computer seems to have gone to sleep 
permanently, 


C64-FORTH differs in some minor points from standard fig-FORTH: 


: In order to support transfer of workspaces to and from cassette, 
User Variables are not located in high memory, but rather in the 
low end of it. Thus, they precede the dictionary. The normal user 
will never be affected. 


. There are a number of extensions resident in ROM. These include 
DUMP, 1+!, 1—!, 1—, 2—, PICK, LINE, TEXT, and others. In 
addition, IEEE/file handling words and cassette save and load 
words are provided. 


The below three points are very technical, and may or may notmake sense 
to you: 
: DOES> words are more compact; they each require two bytes 


less space than in fig-FORTH. DOES> now works according to 
FORTH-79 specifications. 


: All system variables, such as USE and PREV, now are constants 
pointing to RAM cells. The user will not notice any difference. 


: The FORTH ASSEMBLER and EDITOR vocabulary headers are 
moved to RAM on cold start. This is necessary because the system 
is ROM-based. The user will not notice any difference. 


In summary, these deviations are very minor, and source compatibility is in 
no way affected. We have supplied this list for those who have a very 
thorough knowledge of FORTH, to document the implementation. 


Below is a list of system error messages. If you run C64-FORTH with a 
diskette unit, you must enter the messages one per line, starting on screen 4 
on the disk in order to get readable error messages. If you run C64-FORTH 
without a diskette unit, you will still get textual error messages for error 
codes up to 20 (error texts are printed from ROM). For error codes over 20, 
the error message will be given in the form "ERROR # 99". 


1 — Empty stack 

2 — Dictionary full 

3 — Hos incorrect addressing mode 
4 — Is not unique 

5 — In protected dictionary 

6 — Disc range? 

7 — Full stack 

8 — Disc error 

9 — Not 8-bit volue or address 

10 — Use only when loading 


1] — Off current editing screen 

12 — Illegal volue — reenter 

13 — Too large — reenter 

14— 

15 — Datatronic AB (c) -------- C64-FORTH 
16 — 

17 — Compilation only, use in definition 


18 — Execution only 
19 — Conditionals not poired 
20 — Definition not finished 


24 — Transfer aborted 

23 — Too many files 

26 — File already open 

27 — File not open 

28 — File not found 

29? — Device not present 
30 — Not input file 

31 — Not output file 

32 — Missing file name 

33 — Illegal device number 


PART 2 - C64-FORTH GLOSSARY 


This glossary contains all word residing in C64-FORTH’'s main vocabulary. 
In addition, the glossary contains the words of the C64-FORTH EDITOR 
vocabulary, He Be may be supplied inROM or in listing form, depending on 
your particular version of C64-FORTH. All words ore presented in the 
order of their ASCII sort. 


The first line of each entry shows a symbolic description of the action of the 
procedure on the parameter stack. Three dashes (""———’’) indicate the 
execution point; any parameters left on the stack are listed. In this notation, 
the top of the stack is to the right. 


The symbols include: 


addr memory address 

b 8 bit byte (i.e. hi 8 bits zero) 
C ASC]! character 

d 32-bit signed double integer 
f boolean true/false flag 

ff boolean false flag 

n 16-bit signed integer 

U 16-bit unsigned integer 

sf boolean true flag 


Unless otherwise noted, all references to numbers are for 16 bit signed 
integers. For 32-bit double integers, the most significant cell is on top. 


All arithmetic is implicitly 16-bit signed integer math, with error and 
overflow indication unspecified. 


| n addr --- 
Stores 16 bits of n at address. "store”’. 
ICSP 


save the stack position in CSP. Used as a part of the 
compiler security. 


# d] --- d2 


Generate from the double dl, the next ASCII character 
which is placed in an output string, Result d2 is the quotient 
after division by BASE, and is maintained for further 
processing. Used between < # och # >. 

See 4S. “sharp”. 


# > d --- addr count 


Terminates numeric conversion by dropping d, leaving the 
text address and character count suitable for TYPE . 
“sharp-greater”’. 


#S dl] --- d2 


Generates ASCIl text in the output buffer by repeated calls 
to # , until a double zero results. Used between<#och#>. 
"sharp-s''. 


--- addr 
Used in the form: ‘| annn 
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(.") 


(;CODE} 


(+LOOP) 


(ABORT) 


(DEFAULT) 


(DERROR} 


(DO} 


(DOES>} 


Leaves the parameter field addresses of the word nnnn. As 
a compiler directive, executes in a colon definition to 
compile the address asa literal. "tick". 


Used in the form: ( kkkk) 

Ignore a comment that will be delimited by a right 
parenthesis on the same line. It is defined so that it may be 
used within a colon definition. Notice that a blank must 
follow the left parenthesis. “parenthesis”. 


The run-time procedure, compiled by .", that transmits the 
following in-line text to the selected output device. See. 


The run-time procedure, compiled by ;CODE, that rewrites 
the code field of the most recently defined word ta point to 
the following machine code. See ;CODE . 


n soe 


The run-time a compiled a +LOOP, that 
increments the loop index by n and tests for loop 
completion. See +LOOP . 


Executes after on error, when WARNING is —1. The word 
normally just executes ABORT , but this may be altered 
(with care} to a user's alternative error procedure. In ROM- 
based systems such as C64-FORTH, this is not possible. 


n --- (EDITOR) 


The default routine executed by the full-screen editor when 
the entered character is not a return, cursor-down, or 
delete. Its definition is: 


: (DEFAULT) EMIT 2HOME ; 
lf the user extends the full-screen editor, he must vector his 
own default routine via ‘DEFAULT. This new routine must 
take care of any new special functions, and should use 


(DEFAULT) for any other keys. 


Executes after a disk error. Normally just executes 
DERROR, but may be altered to point to a user's disk error 
handling procedure. In ROM-based systems such as C64- 
FORTH, this is not possible. 


The run-time procedure, compiled by DO , that moves the 
loop parameters to the return stack. See DO. 


---pfa = (execution) 


Storts the interpretation of a defining word's DOES> part 
by pushing IP onto the return stack, replacing IP with the 
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(FIND) 


(LINE) 


(LOOP! 


(NUMBER) 


*/MOD 


+! 


BUF 


indirect contents of W plus three, pushing the value of W 
plus two onto the stack (the member's PFA}, andbranching 
to NEXT. 


addr] addr2 --- pfa b f (found) 
addr] addr? --- ff (not found) 


Searches the dictionary starting at the name field address 
addr2, matching to the text at addr]. Returns parameter 
field address, length byte of the name field and a boolean 
true for a good match. If no match is found, a boolean false 


is left. 
nl) n2--- addr count 


Converts the line number nl] and the screen n2 to a disk 
buffer address containing the data. Acount of 40 indicates 
the full length of text. 


The run-time procedure, compiled by LOOP , that 
increments the loop index by one and tests for loop 
completion. See LOOP . 


dl addrl ---d2 addr? 


Converts the ASCII text at addr1+1 with regard to BASE. 
The new value is accumulated to the double value d2. 
Addr2 is the address of the first unconvertable digit. 
Used by NUMBER . 


nl n2--- n2 
Leaves the product n3 of nl and n2. "times". 
nl} n2 nd --- n4 


Leaves the ratio n4=(n1*n2)/n3. By using a 32-bit inter- 
mediate value, greater accuracy is achieved than would 
have been possible with the phrase n} n2 * ar/. ‘‘times- 
divide’. 

nl n2 n3---n4 n3 


As */ , but also leaves the remainder n4. ‘'times-divide- 
mod’, 


nl n2---n3 
Leaves the sum n3 of n1 and n2. 
n addr --- 


Increments the cell at the address by n. ‘’plus-store”’. 

nl n2---n3 

Apply the sign of n2 to n1, which is left as n3. "plus-minus”’. 
addrl --- addr2_ f 


Advance the disk buffer address addrl to the address of 
the next disk buffer. Boolean fF is false if addr2 points to the 
same buffer as PREY . ‘'plus-buft”’. 


+LOOP 


+ ORIGIN 


‘DEFAULT 


-DUP 


nl --- (execution) 
addr n2 --- (compilation) 


Used in a colon definition in the form: 


DO ... ni +LOOP 

At run-time, +LOOP selectively controls branching back to 
the corresponding DO based on ni, the loop index, and 
the loop limit. The signed increment nl is added to the 
index and the totoal compared to the limit. The branch 
back to DO occurs until the new index is equal to or less 
than the limit (n1<0). Upon exiting the loop, the 
parameters are discarded and execution continues ahead. 
“plus-loop”’. 


n --- addr 


Leaves the address of the n:th byte relative to the start of 
the kernel. This definition is used to access or modify the 
boot-up parameters at the origin area. “‘plus-origin”’. 


It --- 


Store n into the next available dictionary cell, incrementing 
DP by two. "comma". 


--- addr (EDITOR) 
Returns the address of o variable containing the cfa 
address of (DEFAUL7}. 


This variable may be changed, for example when a user 
wishes to extend the full-screen editor. 


n e@ua 


Selects screen n for editing and enters the full-screen 
editor. See X. 


nl n2---n3 
Leaves the difference n3 of nl and n2. ‘minus’. 


Continue interpretation with the next disk screen. ‘next- 
screen . 


nl --- n2 


Convert the binary value nl toa packed BCD value n2. n1 
must have a value from 0 to 99. ''dash-b-c-d"’. 


addr s t d fl --- f2 


The disk interface word used to transfer a disk block from 
or toa memory area. Track t, sector s, on drive d is either 
read or written depending on fl, which is 0 for a write and 
1 for a read. Boolean f2 is true if a disk error has occurred. 
"dash-disk’’. 


Q --- 0 
nl --- nl nl (non-zero) 


Duplicates the top stack value onlly if it is non-zero. Mainly 
used before a'IF , to eliminate the need for an ELSE part to 


DROP it. “dash-dup”. 


—FIND 


—MOVE 


— TRAILING 


.LINE 


--- pfa b_ sf (found) 

--- ff (not found) 

Accepts the next word from the input stream to HERE , and 
searches the CONTEXT and then CURRENT vocabularies 
fora matching entry. If found, the parameter field address, 
length byte, and a boolean true is left. Otherwise, only a 
boolean false is left. ‘“dash-find”. 


addr n -- (EDITOR} 


Moves the text at addr to line n in the current editing 
screen. The number of characters moved is given by the 
constant C/L . “dash-move”’. 


addr nl --- addr n2 


Adjusts the character count of the string at addr to 
suppress trailing blanks. ‘'dash-trailing”. 


Nn oom 


Prints the number n on the selected device, converted 
according bo BASE . The value is followed by one blank. 
“dot”. 


Used in the form: .”’ tttttttt”’ 

Compiles an in-line string tttttttt with a run-time procedure 
to transmit the text to the selected output device. If used 
outside a colon definition, ."" will immediately print the 
characters up to the final’. The maximum text length is 255 


choracters. See (."') . “dot-quote”’. 
line screen --- 


Transmits the specified line of the indicated screen to the 
selected output device. "dot-line’ . 


nl n2 --- 


Print the number nl right-aligned in a field whose width is 
n2. No following blank ts printed. ‘‘dot-r’’. 


n) n2--- n3 
Divides nl by n2, leaving the quotient n3. “divide”. 
nl n2--- rem quot 


Divides nl by n2, leaving both remainder and quotient. 
The remainder has the sign of the quotient. ‘divide-mod”. 


-— Nn 


These four values are defined as constants, giving their 
own value when invoked. This saves two bytes each time 
they are used in a colon definition. 


n --- f 
Leaves boolean true if n is less than zero. "zero-less’’. 


n --- f 


OBRANCH 


2+ 


Leaves boolean true if nis zero. May also be used asa NOT 
function. 'zero-equal”. 


oo 


The run-time procedure to branch conditionally. If f is false 
(zero) the following in-line parameter is added to the 
interpretive pointer IP to branch ahead or back. Compiled 
by IF , UNTIL , and WHILE. '’zero-branch”. 


nl} --- n2 

Increments nJ by one. “one-plus’’. 

addr --- 

Increments the cell at addr by one. “‘one-plus-store”’. 

n] --- n2 

Decrements nl by one. ‘‘one-minus”. 

addr --- 

Decrements the cell at addr by one. '’one-minus-store”’. 
d addr --- 

Stores the 32-bit value d in four bytes at addr. "two-store”’. 
addr --- d 

Fetches the 32-bit value from 4 bytes at addr. ''two-fetch”’. 
nl ---n2 

Increments nl by two. "two-plus”. 

nl --- n2 

Decrements nl by two. “two-minus’’. 


2DROP , 2DUP , ZOVER , 2ROT , 2SWAP , 
2VARIABLE, 2CONSTANT 


;CODE 


Double-precision counterparts for the usual 16 bit words. 
“two-drop”, ‘“two-dup”, ‘two-over”, "two-rote", "two- 
swap'’, ‘two-variable’, and "two-constant”. 


Used in the form called a colon definition: 


: CCCC Kae 3 

Creates an entry in the dictionary defining cccc as 
equivalent to the sequence of words represented by '.. .’ 
until the next; or ;CODE . The compiling process is done by 
the next interpreter as long as STATE is non-zero. Other 
details are that the CONTEXT vocabulary is set to the 
CURRENT vocabulary, which means thot the vocabulary 
into which the definition is linked is selected. Words that 
have the precedence bit set (IMMEDIATE words) are 
executed rather than being compiled. colon”. 


Used in the form: - 
sccce ...:;CODE mnemonics END-CODE 
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<H 


<BUILDS 


>BLKS 


>R 


Stop compilation of and terminate a new defining word 
cece by compiling (;CODE) . Set the CONTEXT to 
ASSEMBLER , assembling to machine code the following 
nmemonics, which specify the run-time behaviour for 
words defined by cccc. 


When cccc later executes in the form: 
cccc nnnn 

then word nnnn will be creoted with its execution 
procedure given by the machine code between ;CODE 
and END-CODE. The code field of nnnn points to the code 
after ;CODE . That is, when nonn later is executed, it does 
so by jumping to the code after nnnn. An existing defining 
word must exist in cccc prior to; CODE. "'semicolon-code”’. 


Stop interpretation of a screen. ;5 is also the run-time word 
compiled by ; at the end of a colon definition which returns 
control to the calling procedure. "semi-s”’. 


nl n2---f 
Leaves true if nl] is smaller than n2. "less-than’’. 


Start conversion of a double-precision number, leaving the 
result below PAD . "‘less-sharp”. 


Used within a colon definition: 

cccc <BUILDS ... DOES> ... ; 
Each time cccc is executed, <BUILDS creates ao new 
dictionary entry, with a run-time behaviour in high-level. 
Executing cccc in the form: 

cccc mnnn 

uses <BUILDS to create nnnn, with a call to the DOES> 
part in cecc. When nnnn is loter executed, the address of its 
parameter field is pushed on the stack, and the words after 
DOES> are executed. <BUILDS and DOES> allow run- 
time procedures to be written in level rather than in 
assembler code (as required by ;CODE. “builds”. 


nl n2-- f 
Leaves boolean true if nl equals n2. ‘equals’. 
nl] n2---g 


Leaves boolean true if nl is greater thon n2. ‘'greater- 
than’. 


= (EDITOR) 


Transfers the contents of the video screen to the current 
editing screen, updating it in the process. Translates the 
text from screen code to program code. 


n — 
Remove a number from the computation stack and place 
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>SCRN 


2DISC 


gERROR 


fEXEC 


SHOME 


SLOADING 
gPAIRS 


¢SHIFT 


eSTACK 


#TERMINAL 


as the most accessible. Use should be balanced witha R> in 
the same definition. ‘'to-r’’. 


{EDITOR} 
Prints the current editing screen. Color memory is filled 


with TCOLOR. 
addr --- 


Prints the contents of the address in free format according 
to the BASE . ''question”. 


Issue error message if not compiling’. “question-compiling”’. 


Issue error message if the stack position differs from the 
value saved in CSP. "'question-c-s-p’’. 


Read the disk drive's status/error code and save it starting 
at $O8BF. The length of the message is stored at $08C0. See 
COUNT and TYPE . "question-dise’’. 


anes 


Issue error message n, if the boolean flag is true. ‘’ question- 
error. 


Issue an error message it not executing. “question- 
executing - 


Puts the cursor in the upper left corner if it is positioned in 
the lower right corner of the screen. 'question-home”. 
Issue an error message if not loading. ‘'question-loading"’. 
nl n2-- 


Issue an error message ifn] is unequal to n2. The message 
indicated that compiled conditionals do not motch. 
“question-pairs’. 

--- 1 


Returns the shift pottern of the keyboard; that is, which of 


the SHIFT, CONTROL, and Commodore keys are pressed. 
“question-shift'’. 


Issue an error message if the stack is out of bounds. 
"question-stack’’. 


-f 


Perform a test of the STOP key. A true flag indicates 
actuation. '’question-terminal””. 


addr --- n 
Leove the 16-bit contents of the address. ‘fetch’. 


1] 


ABORT 


ABS 


AGAIN 


ALLOT 


AND 


ASSEMBLER 


ATA@ 


B/SCR 


BACK 


Empty both stacks and enter execution state. Return 
control to the user. 


nN --- U 
Leaves the absolute value of n. 
addr n --- (compilation) 


Used within a colon definition in the form: 

BEGIN ... AGAIN 

At run-time, AGAIN forces a brach back to the 
corresponding BEGIN. The stack is not affected. Execution 
cannot leave this loop. 

At compile-time, AGAIN compiles an unconditional 
branch from address HERE to addr. n is used for error 
checking during the compilation. 

Nn one 


Add nto the dictionary pointer DP. May be used to reserve 
dictionary spoce or re-origin memory. n is a signed 
number. 


nl n2--- n3 
Leaves the logical bitwise AND result of nl and n2. 


Sets CONTEXT to ASSEMBLER, making dictionary searches 
begin here. Defind IMMEDIATE making selection of the 
ASSEMBLER possible even during compilation. 


--- addr (EDITOR) 


Returns the address of the current position of the cursor. 
“at-address-fetch”. 


(EDITOR) 


Used to select the screen next lower in sequence as the 
current editing screen. See N and L. "back". 


r) os sas 
Prints the number n in binary form, regardless of BASE, 
which remains unaffected. ''b-dot". 


1 


This constant leaves the number of bytes per disk buffer, 
1024. ''bytes-per-buffer’’. 


---n 


This constant leaves the number of blocks per screen, that is 
1. By convention, an editing screen is organized as 25 lines 
of 40 characters each. “block-per-screen’. 


addr --- 


Calculate the backward branch offset from HERE to addr 
and compile into the next available dictionary cell. 
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BACKUP 


BASE 


BEGIN 


BL 


BLANKS 


BLK 


BLOCK 


BOOT-UP 


BRANCH 


BUFFER 


C! 


(EDITOR) 


Copies the diskette in drive 0 to drive 1, after FLUSH :ing 
the buffers. 


--- addr 


A USER variable containing the numeric I/O conversion 
base. 


--- addr n 

Used in a colon definition in form: 
BEGIN ... UNTIL 
BEGIN ... AGAIN 


BEGIN ... WHILE ... REPEAT 
At run-time, BEGIN marks the start of a sequence that may 
be repetitively executed. It serves asa return point from the 
corresponding 
UNTIL , AGAIN , or REPEAT . 
At compile time, BEGIN leaves its return address and n for 
compiler error checking. 


--- ¢ 

A constant that leaves the ASCH code for a blank. blank’. 
addr count --- 

Fill an area of memory beginning at addr with blanks. 
--- addr 


A USER variable that points to the block being interpreted. 
lf zero, text is taken from the keyboard. 


n --- oddr 


Leaves the address of block n. If the block is not already in 
memory, it is transferred from disk to which ever buffer was 
least recently written. If this buffer contains an updated 
block, it is first rewritten to disk. 

See BUFFER , R/W , -DISC , UPDATE etc. 


System boot-up. Initializes disks, empties all buffers, and 
loads the electives screen (screen 1). 


The run-time procedure to unconditionally branch. The cell 
after BRANCH , containing a offset, is added to the 
interpretive pointer IP , causing a branch. Compiled by 
ELSE , AGAIN , and REPEAT . 


n --- addr 


Obtain the next memory buffer, assigning it to block n. If 
the contents of the buffer is updated, it is written to ‘disk. 
The block is not read from disk. Leaves the address of the 
first data byte in the block. 


-b addr --- 


Store the 8-bit valve b at addr. ‘'c-store”. 
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CDOWN 


CFA 


CKEY 


CLEAR 


CLIT 


CLOAD 


CLOSE 


CMOVE 


CODE 


COLD 


b --- 


Stores the 8-bit value b in the nest cell in the dictionary, 
incrementing DP y one. '“c-comma". 


addr --- b 
Fetches one byte from the address. "'c-fetch”. 
C --- (EDITOR) 


Used by the full-screen editor to assure that the screen 
never scrolls. ‘‘cursor-down’’. 

pfa --- cfa 

Convert the parameter field address of a definition to its 
code field address. ‘'c-f-a”"’. 

---b 

As KEY, but displays a blinking cursor while waiting for 
operator response. 

n --- (EDITOR) 
Fills sereen n with blanks, preparing it for editing. See 
ZERO. 

---b {execution) 

A 8-bit counterpart for LIT . “c-lit”. 

-- f 

Load a saved dictionary from cassette. A flag is left on the 
stack which is false if the load was successful. Otherwise it 
is an error code. 

n wee 

Close file n, disassociating n from the external device 
specified in OPEN . 

orig dest count --- 


Moves the specified quantity of bytes specified from 
address orig to address dest. The byte in orig is moved first, 
proceeding towards high memory. ‘'c-move’’. 


-- 1) 
A defining word used in the form: 


CODE xxx... . END-CODE 

Creates on entry in the dictionary defining xxx as 
equivalent to the sequence of assembler mnemonics 
represented by '....’ up to END-CODE. C64-FORTH will 
remain in its interpretative state during this process, which 
allows the full power of FORTH to be used for address 
computation. The assembly is done in hexadecimal, with 
the original base left on the stack by CODE. END-CODE 
restores BASE to its original value. 


Causes a hardware reset. C64-FORTH will be restarted, 
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COMPILE 


CONSTANT 


CONTEXT 


COPY 


COUNT 


CR 


CREATE 


CSAVE 


CSP 


with the dictionary pointer set to the minimum standard. 
May be called to remove application programs and 
restart. 


When the colon definition containing COMPILE is 
executed, the address of the word following COMPILE will 
be compiled into the dictionary. This allows specific 
compilation situations to be handled in addition to simply 
compiling an execution address (which the interpreter 
already does). 


n oom 


A defining word used in the form: 

n CONSTANT ccce 
to create a constant named cccc, which when executed will 
push n onto the stack. 


--- addr 


A USER variable containing a pointer to the vocabulary 
within which dictionary searches will first begin. 


nl n2--- (EDITOR) 
Copies screen n1 to screen n2. 
addrl --- addr2_ on 


Leaves the address addr2 and the byte count n of a string 
starting at addr]. It is presumed that the string is stored in 
the usual FORTH way, with the length in the first byte. 
COUNT is often followed by TYPE . 


Transmits o carriage return to the selected output device. 
"eer, 


A defining word used in the form: 

TE cece 
by such words as CODE and VARIABLE to create a 
dictionary header for a FORTH word. The code field 
contains the address of the words parameter field. The new 
word is created in the CURRENT vocabulary. 


af 


Saves the dictionary and USER-variables to cassette. The 
workspace, which may be given a name (by NAME), can be 
relooded by CLOAD. CSAVE leaves a flag which is false if 


the save was successful, otherwise it is an error code. 
--- addr 


A USER variable temporarily storing the stack pointer 
position, for compilation error checking. ''c-s-p’’. 


Ass (EDITOR) 
Deletes line n from the current editing screen. All lines 
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D+ 


D+— 


D.R. 


DABS 


DECIMAL 


DEFAULT 


DEFINITIONS 


DELETE 


DERROR 


DIGIT 


DLITERAL 


under n will move up one line, and line 24 is blanked. 
“delete”. 


d| d2--- d3 

Leaves the double-precision sum of the double-precisign 
numbers d1 and d2., “‘d-plus’’. 

dl n--- d2 

Apply the sign of n to the 32-bit value dl, giving d2. ‘d- 
plus-minus’’. 

Ae 

Print the double-precision value d on the selected output 
device in a free format, followed by a blank. ''d-dot"’. 


d n-- 


Print a signed double value d right aligned in a field n 
characters wide. ''d-dot-r’’. 


d --- ud 


Leave the absolute value ud of a double value. ''d-abs"’. 


Sets the numeric conversion BASE for decimal I/O. 
= (EDITOR) 
A vectored definition that executes the word pointed to by 
‘DEFAULT. Its definition is: 

: DEFAULT ‘DEFAULT @ EXECUTE ; 
By altering ‘DEFAULT, the user may add extra features to 
the full-screen editor. 


Used in the form 

eccc DEFINITIONS 
Sets the CURRENT vocabulary to the CONTEXT vocabulary. 
In the example, executing cccc made it the CONTEXT and 
DEFINITIONS made both specify the vocabulary cccc. 


_ (EDITOR} 


Used by the full-screen editor to assure that a delete never 
is made at line 24, column 0. 


Vectored to from (DERROR) when a disk error has 
occurred. Sets WARNING to zero. "d-error’’. 


c nl ---n2_ tf (ok) 
c oni --- ff (not ok} 


Converts the ASCII character ¢ (using base n1} to its binary 
equivalent n2, accompanied by a true flag. If the 
conversion is invalid, leaves only a false flag. 


d---d (execution) 
d--- = (compilation) 


lf compiling, compile a stack double number into a literal. 
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DMINUS 


DISC 


DO 


DOES> 


DO-KEY 


DP 


DPL 


Later execution will push it onto the stack. If executing, 
nothing happens. ‘'d-literal”. 


d} --- d2 


Convert dl to its double number 2s-complement. ‘‘d- 
minus . 


Enable the virtual memory facility by initializing all drives 
and opening file 15 as command channel and file 13 for 
data. 


nl n2--- — (execution) 
--- addr n_ (compilation) 


Used in a colon definition in the form: 

DO ... LOOP 

DO ... +LOOP 
At run-time, DO begins a sequence with repetitive 
execution controlled by a loop limit nl and an index with 
initial value n2. DO removes these from the stack. Upon 
reaching LOOP the index is increamented by one. Until the 
index equals or exceeds the limit, execution loops back to 
just after DO ; otherwise the loop parameters are 
discarded and execution continues ahead. Both nl and n2 
are determined at run-time and may be the result of other 
operations. See!,|',J,K , LOOP , +LOOP , and LEAVE. 


When compiling within the colon definition, DO compiles 
(DO) , leaves the following address addr and n for later 
error checking. 


Defines the run-time behaviour for members of a user 
defined word class. When the new defining word is 
compiled, DOES> will compile (;CODE) and a machine 
code branch to the routine (DOES>) . When this defining 
word later is exexuted, (; CODE) will let the defined word's 
CFA point to the machine code branch to (DOES>}. When 
this new member is executed, (DOES>}) starts the inter- 
pretation of the words following DOES> in the defining 
word, after having pushed the address of the members 
parameter field. This allows manipulation with this area. 
Typical uses include the FORTH assembler, multi- 
dimensional orrays, and compiler generation. ‘does’. 


ae (EDITOR) 


Used by the full-screen editor to take appropriate action 
for each pressed key. 


--- addr 


A USER variable, the dictionary pointer, which contains the 
address of the next free byte above the dictionary. It may 
be read by HERE and altered by ALLOT . "'d-p”. 


--- addr 


A USER variable containing the number of digits to the left 
of the last decimal point in the most recently converted 
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DRO , DRI 


ELSE 


EMIT 


input number. If no decimal point was present, it has the 
value -1. DPL may also be used to control the position of 
the decimal point in a user defined output formatting 
word. ''d-p-I". 


Selects drive by setting or resetting OFFSET . OFFSET is 
added to the block number in BLOCK to allow for this 
selection. Offset is suppressed for error text so that it may 
always originate from Drive 0. "drive-zero”, ''drive-one’’. 
n ase 

Removes the 16-bit value from the stack. 

addrl_ addr? --- 


Dumps the contents of addrl to addr2 on the output device 
in hex and ASCII form. The dump may be interrupted by the 
STOP key. 


n--n on 
Duplicates the top stack value. 
nN --- (EDITOR) 


Erases line nin the current editing screen, that is, fills it with 
blanks. ‘erase’. 


addrl_ nl ---addr2 n2_ (compilation) 


Used in a colon definition in the form: 

IF ... ELSE ... THEN 

When executing, ELSE will be executed ofter the words 
between IF and ELSE , forcing a branch to the word 
following THEN . It has no stack effect. 

When compiling, ELSE will compile BRANCH and leave 
the address addr2 and n2 for error checking. ELSE will also 
resolve the forward reference from IF by calculating the 
— from addrl to HERE and storing this value in 
addr]. 


C re 


Transfer the ASCII code c to the output device. OUT will be 
incremented by one for each character output. This word is 
the basic output word used in FORTH. 


EMPTY -BUFFERS 


ENCLOSE 


Erases all block buffers to zeroes. Updated blocks are not 
written to disk. This word is included in the definition of 
DISC , to prevent garbage from being written to disk. 


addr] c--- addr! nl n2 n3 


The next scanning primitive used by WORD. From the text 
address addrl and an ASCII delimiting character c, is 
determined the byte offset to the first non-delimiter after 
the text n2, and the offset to the first character not 
included. This procedure will not process past an ASCI 
‘null’, treating it as an unconditional delimiter. 
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END 


ENDIF 


ERASE 


ERROR 


EXECUTE 


EXPECT 


FENCE 


FILL 


FIRST 


FLD 


FORGET 


This is an earlier name for UNTIL . It is supported by C64- 
FORTH, but should not be used. 


This is on earlier name for THEN . It is supported by C64- 
FORTH, but should not be used. 


addr n-- 


Clear a region of memory to zero from addr over n 
addresses. 

line --- in blk 

Execute error notification and restart of the system. 
WARNING is first examined. | 1, the text or line n, relative 
to screen 4 of drive 0 is printed. This line number may be 
negative, and beyond just screen 4. If WARNING =0, nis 
just printed as a message number, since this means that no 
disk is available. If WARNING is -1, the definition (ABORT) 
is executed, which executes the system ABORT . The user 
may cautiously modify this by altering (ABORT). Cé64- 
FORTH saves the contents of IN and BLK on the stack to 
assist in determining the location of the error. Final action 
is execution of QUIT. 


oddr --- 


Execute the definition whose code field address is on the 
stack. 


addr count --- 


Transfer characters from the input device until o "'return’’ 
or the count of characters have been recieved. One or 
more nulls are added at the end of the next. 


-- addr 


A USER variable containing an address below which 
FORGET is impossible. To FORGET below this point, 
FENCE must be changed. 


addr count b--- 


Fill memory at the address with the specified quantity of 
bytes b. 


--- 7 


A constant that leaves the address of the first block buffer 
(the lowest). 


--- addr 


A USER variable for control of number output field width. 
Presently unused in C64-FORTH. "field". 


Executed in the form FORGET cece 
Removes the entry ccecc from the dictionary and all entries 
following it. 
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FORTH 


FREE 


HERE 


HEX 


HLD 


HOLD 


HOME 


HPIN 


The name of the primary vocabulary. 

Execution makes FORTH the CONTEXT vocabulary. FORTH 
is detined IMMEDIATE , which means it will execute even 
inside a colon definition, to select FORTH at compile time. 


sl s2 --- (EDITOR) 


Prints the numbers of all free screens in the interval screen 
sl to screen s2. A screen is regarded as empty if its first cell 
contains 0. See CLEAR and ZERO. 


_ (EDITOR) 


Copies line n in the current editing screen to PAD. The text 
will be padded with blanks to 40 characters length. 


a] oe 


Prints n in hexadecimal. BASE remains unaffected. “h- 
dot’. 


--- addr 


Leaves the address of the next free dictionary byte. See DP 
and ALLOT . 


Set the numeric conversion base to sixteen, i.e. hexa- 
decimal. 


--- addr 


A USER variable containing the address of the latest 
character of lex! during numeric output conversion. "h-I- 


Cc -<--= 


Used between <# and #> to insert an ASCII character c into 
a pictured numeric conversion string. E.g. 2E HOLD will 
place a decimal paint. 


Puts the screen cursor in the upper left corner. 
b --- f 


Selects file b as the current input device. Returns false if 
possible, otherwise returns an error code. 
See OPEN . "h-p-in"’. 


Restores the default I/O devices, that is, the keyboard and 
video screen. ‘h-p-off". 


b --- f 


Selects file b as the current output device. Returns false if 
possible, otherwise returns an error code. 
See OPEN . "h-p-out'’. 


n --- (EDITOR) 
Insert the contents of PAD as fine n in the current editing 
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IMMEDIATE 


INDEX 


INTERPRET 


screen. The old line n and all subsequent lines are moved 
down, and line 24 is lost. PAD remains unaffected. "'insert’’. 


ih (FORTH) 


Used within o DO - LOOP structure to copy the loop index 
to the parameter stack. See R, I’, J, and K. 


= 1 


Used within a DO - LOOP construction to copy the loop 
limit to the stack. See |, J, and K. “i-limit”’. 


nfa -- 


Print a definition’s name from its name field address. ‘'i-d- 
dot”’. 


f --- (run-time) 
-- addr n_ (compile) 


Used in a colon definition in the form: 

IF (true) ... THEN 

IF (true) ... ELSE (false ... THEN 

At run-time, IF selects execution based ona boolean flag. If 
f is true (non-zero), execution continues ahead through the 
true part. If f is false (zero), execution skips till just after 
ELSE to execute the false part. After either part, execution 
resumes after THEN. ELSE and its false part are optional; if 
missing, false execution skips to just after THEN . 

At compile-time IF compiles OBRANCH and reserves space 
for an offset at addr. addr and n are later used for 
resolution of the offset and error testing. 


Mark the most recently made definition so that when 
encountered at compile-time, it will be executed rather 
than being compiled. The precedence bit in the header is 
set. This method allows definitions to handle unusal 
compiling situations, rather than build them into the 
fundamental compiler. The user may force compilation of 
an IMMEDIATE definition by preceding it with [COMPILE]. 
Examples of IMMEDIATE-definitioner are IF, DO , DOES>, 
;,-->, and LOOP. 


--- addr 
A USER variable containing the byte offset within the 
current input text buffer (terminal or disk) from which the 


next text will be accepted. WORD uses and moves the 
value of IN. 


sl s2 --- 


Print the first line of each screen over the range s1 to s2. 
This is used to view comment lines of an area of’ disk 
screens. 


The outer text interpreter which sequentially executes or 
compiles text from the input stream (terminal or disk) 


21 


LATEST 


LEAVE 


LFA 


LIMIT 


LINE 


LIST 


LIT 


depending on STATE . If the word name cannot be found in 
the dictionary it is converted to a value according to BASE. 
That also failing, an error message is given. Text input will 
be taken according to the convention for WORD . Ifa 
decimal point is found as a part of a number, a double 
number will be left; the number of decimal is left in DPL. 
The decimal point has no other purpose than to force this 
action. See NUMBER . 


-- 1 

Used within a nested DO - LOOP to fetch the value of the 
next innermost index. See l, |’, and Kk. 

--- 1 

Used within a nested DO-LOOP to fetch the next next 
innermost loop index. See!, |’, and J. 


(EDITOR) 


Used to re-view the current editing screen. Each line is 
prededed ny its line number and a P to facilitate on-screen 
editing. 


--- nfa 


Leave the name field address of the topmost word in the 
CURRENT vocabulary. 


Force termination of a DO-LOOP by setting the loop limit 
to the index. The index itself remains unchanged, and 
execution proceeds normally until the next LOOP or 


+LOOP. 
pfa --- Ita 


Convert o word's parameter field address to its link field 
address. "'I-f-a"’. 


--- oddr 


A constant leaving the address of the first byte after the 
disk buffer area. 


n --- addr (EDITOR) 


Leaves the address of line n within the current editing 
screen. An error message is given if n is illegal. 


n aoe 


Display screen n as ASCII text on the selected output 
device. SCR contains n after this process. See L. 


--- 


Within a colon definition, LIT is automatically compiled 
before each 16 bit literal number encountered in the text. 
Later execution causes the contents of the next dictionary 
address to be pushed to the stack. 
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LITERAL 


LOAD 


LOOP 


M* 


M*/ 


M/ 


M/MOD 


MAX 


MESSAGE 


n--- (compilation) 


If compiling, then compile the stack value as a 16-bit 
literal. This definition is immediate so that it will execute 
during a colon definition. The intended use is: 

: xxxx [ calculate | LITERAL ... ; 
Compilation is suspended for the compile time calculation 
of a value. Compilation is resumed and LITERAL compiles 
this value. 


Nn --- 


Begin interpretation of screen n. Loading will terminate at 
the end of the screen or at ;S. See ;8 and -->. 


addrn--- (compiling) 


Occurs in a colon definition in the form: 
©... LOOP 

At run-time, LOOP selectively controls branching back to 
the corresponding DO based on the loop index and limit. 
The loop index is incremented by one and compared to the 
limit. The branch back to DO occurs until the index equals 
or exceeds the limit; at that time, the parameters are 
discarded and execution continues ahead. 


nl n2 ---d 


A mixed precision operator which leaves the signed 
double product of two signed numbers. ''m-times”’ 


dl nu--- d2 
A mixed precision operator. Multiplies the signed 32-bit 
value d1 by the signed 16-bit value n, then divides this by 


the unsigned value u. The result is a 32-bit signed value. A 
48-bit intermediate result is used. 


dnl --- n2 n3 


A mixed precision operator which leaves the signed 
remainder n2 and signed quotient n3, from a double 
number dividend and a single divisor nl. The remainder 
takes its sign from the dividend. ‘'m-divide"’. 


ud] u2 --- u3 ud4 


An unsigned mixed precision math operation which leaves 
a double goutient ud4 and remainder u3 from a double 
dividend ud) and single divisor u2. ‘‘m-divide-mod”’. 

nl n2 --- n3 

Leaves the greater of two numbers. 

n ma ro 
Print on the selected output device the text of line n relative 
to screen 4 of drive 0. n may be positive or negative. 
MESSAGE may be used to print incidental text such as 


report headers. If WARNING is zero, the message will 
simply be printed as a number (disk unavailable), unless n is 
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NEXT 


NFA 


NUMBER 


OFFSET 


OPEN 


below 21, in which case the text is taken from read-only- 
memory. 


nl n2 --- n3 

Leaves the smaller of two values. 
n] --- n2 

Chonge sign of a value. 

nl] n2 --- n3 


Leaves the remainder of the division nl n2/, with the same 
sign as nl. 


(EDITOR) 
Increments SCR by one, making the next lower numbered 
screen the current editing screen. 


oddr len --- 


This word sets a file name for a subsequent IEEE file 
operation. It must be used before an OPEN, CSAVE, or 
CLOAD. If no file name is to be sent, both arguments must 
be zero. 


This is the inner interpreter that uses the interpretive 
pointer IP to execute compiled FORTH definitions. It is not 
directly executable, but is the return point for all CODE 
procedures.It acts by fetching the address pointer to by IP, 
storing this value in the register W. It then jumps to the 
address pointed to by the address pointer to by W. W 
points to the code field of a definition which contains the 
address of the code which executes for that defintion. This 
usage of indirect threaded code is a major contributor to 
the power, portability, and extensibility of FORTH. 


pta --- nfa 


Convert the parameter field address of a word to its name 
field address. ''n-f-a"’. 


oddr --- d 


Convert a character string left at addr with a preceding 
length byte, to a signed double value using the current 
numeric BASE. If o decimal point is encountered in the text, 
its position is stored in DPL, but no other effect occurs. If 
numeric conversion is not possible, an error message will 
be given. 


--- addr 


A USER variable which may contain a block offset to disk 
drives. The contents of OFFSET is added to the stack 
number by BLOCK. Messages by MESSAGE are 
independent of OFFSET. See BLOCK, DRO, and MESSAGE. 


fnr dv sa --- f 
Open file fnr on logical device dv with secondary address 
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OR 


OUT 


OVER 


PAD 


PAGE 


PAPER 


PFA 


PREY 


PROGRAM 


QUERY 


QUIT 


sa. Before executing this word, a file name must be set by 
NAME. A flag is left which is false if the open was successful 
and otherwise is an error code. 


nl n2 --- n3 
Leave the result of a 16-bit bitwise OR. 
--- addr 


A USER variable that contains a value incremented by 
EMIT. The user may alter and examine OUT to control 
display formatting etc. Since all routines ultimately use 
EMIT for output, the value reflects the total number of 
characters output. 


nl n2 --- nl n2 nl 
Copy the second stack value, pushing it on top. 
n --- (EDITOR) 


Used in the form: 

n P xxxx.....XXXXX 
to store the text xxxx on line nin the current editing screen 
and in PAD. See L. ''put”’. 


--- addr 


Leave the address of the text buffer, which is a fixed offset 
above HERE. 


Clears the screen by emitting a decimal 147. 
(EDITOR) 


Open file 4 to the printer and select it as the current output 
device. See VIDEO. 


nfa---pfa 


Convert the name field address of a word to its parameter 
field address. ''p-f-a’’. 


-- addr 


A USER variable containing the address of the disk buffer 
most recently referenced. The UPDATE command marks 
this buffer to be later rewritten to disk. 

(EDITOR) 


Copies screens 0 through 60 from Drive 0 to Drive 1, the 
area most commonly used for program text. 


Input 80 characters (or until a return’) from the current 
input device. Text is positioned at the address contained in 
TIB with IN set to zero. 


Clear the return stack, stop compilation, and return control 
to the operators terminal. No message is given. 
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R# 


R/W 


R> 


RO 


REPEAT 


RETURN 


ROT 


RP! 


S>P 


i (EDITOR) 


Replace line n in the current editing screen the contents of 
PAD. “replace”. 


--- nN (FORTH) 
Copy the top of the return stack to the parameter stack. 
--- addr 


A USER variable which may contain the location of an 
editing cursor, or other file related function. "'r-sharp". 


addr blk f --- 


The FORTH standard disc read-write linkage. addr specifies 
the source or destination block buffer, blk is the sequential 
number of the referenced disk block; and f is a flag for f=0 
write and f=1 read. R/W determines the location on mass 
storage, performs the read-write and checks for errors. 
“read-slash-write'’. 

--n 
Remove the top value from the return stack and leave it on 
the parameter stack. See >R and R.''r-form”. 
---1n 


A USER variable containing the initial location of the 
return stack. See RP!. ‘'r-zero”. 

addr n--- (compiling) 

Used within a colon definition in the form: 


BEGIN ... WHILE ... REPEAT 
At run-time, REPEAT forces an unconditional branch back 
to just after the corresponding BEGIN. At compile-time, 
REPEAT compiles BRANCH and the offset trom HERE to 
addr. n is used for error testing. 


a (EDITOR) 
Used by the full-screen editor to assure that the screen 
never scrolls. 

nl n2 n3 --- n2 n3 ni 


Rotate the top three stack values, bringing the third to the 
top. ‘rote. 


Restores the return stack pointer from the variable RO, thus 
initializing it.'r-p-store’’. 
n --- (EDITOR) 


Spreads the current editing screen at line n, making line n 
blank and moving all subsequent lines down. Line 24 is 
lost.”’spread”’ 


addr count --- 


Translates the characters in addr and count characters 
ahead from screen code to program code, with regard to 
quote modes in the text. "screen-to-progrom”. 
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9->D 


30 


OCR 


SCREENS 


SHOW 


SIGN 


SMUDGE 


oP! 


SP@ 


oPACE 


SPACES 


STATE 


STATUS 


n---d 
Sign extend o single number to form a double number. ''s- 
to-d" 


--- addr 2 

A USER variable containing the initial value for the 
parameter stack. See SPI. '’s-zero”. 

--- addr 


A USER variable containing the number of the current 
editing screen. ''s-c-r"’ 


fr to count --- {EDITOR} 
Copies the indicated number of screens from fr toto. 
s] s2 --- (EDITOR) 


Prints all used TRIADS in the range s] to s2. A TRIAD 
containing three zero screens will not be listed. 


nd---d 
Stores an ASCII "'-" sign just before a converted numeric 
output string of n is negative. n is removed, but double 


number d is maintained on the stack. Must be used between 
<H# ond #>. 


Used during word definition to toggle the "smudge bit’ in 
a definition header. This prevents an uncompleted definition 
from being found during dictionary searches until 
compilation is completed without error. A bad word must 
therefore be SMUDGEd again before you can FORGET it. 


Empties the parameter stack by loading the parameter 
stack pointer from SO0."'s-p-store’”’. 


--- addr 


Leave the address of the top value of the stack, as it was 
before SP@was executed. That is, the phrase 1 2 SP@@... 
will type 221 . ''s-p-fetch”. 


Transmit an ASCII blank to the output device. 
—— 

Transmit n ASCII blanks to the output device. 
--- addr 


A USER variable containing the compilation state. A non - 
zero valve indicates compilation. 


--- n 


Push the IEEE file status code. Here is a table of the 
individual bits. 


2/ 


SWAP 


Hs 


T/ 


TCOLOR 


TEXT 


THEN 


TIB 


TOGGLE 


TRAVERSE 


Time out on write 

Time out on read 

Short block 

Long block 
Unrecaverable read error 
Checksum error 

EOI (End of file) 


Device not present 


“IOs Gn & Go AD — © 


nl n2 --- n2 n] 

Swap the top two stack values. 

ud u --- u-triple 

Multiplies the unsigned 32-bit number ud by the unsigned 
16-bit value u, yielding a 48-bit unsigned result. 

u tripple u --- ud 


Divides an unsigned 48-bit value by an unsigned 16-bit 
valve u, giving a 32-bit unsigned result. 


--- adr (EDITOR) 


Returns the address of a variable containing the text color 
code used in the full-screen editor. May be changed by the 
user, ‘text color”. 


Cc ave 


Accept text from the input stream to PAD, after clearing 
PAD. TEXT will stop accepting after C/L characters, or 
when an ASCII c character is encountered, orata RETURN. 
Initial occurences of c ore ignored. 


addrn--- (compiling) 


Used within a colon definition in the form: 

IF... THEN 

(F ... ELSE ... THEN 
At run-time, THEN serves as a destination for a branch 
from IF or ELSE. It marks the end of aconditional structure. 
At compile-time, THEN calculates the offset from addr to 
HERE, storing this at addr. n is used for error checking. See 
IF and ELSE. 


--- addr 


A USER voriable containing the address of the terminal 
input buffer. ‘'t-i-b”. 
addr b --- 


Complement the contents of addr by the bit pattern b. 


addr] n --- addr2 


Move across the name field of a FORTH variable length 

name field. Addr] is the address of either the length byte or 

the last character in the name. If n=] the motion is toward 

hi memory; if n -—1 the motion is toward low memory. The 

lg resulting is the address of the other end of the name 
ield. 
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TRIAD 


TYPE 


U* 


UPDATE 


USE 


USER 


Scr --- 


Display on the selected output device the three screens 
which include that numbered scr, beginning with a screen 
evenly divisible by three. Output is suitable for source text 
records, and includes a reference line at the bottom taken 
from line 15 of screen 4. 


addr count --- 


Transmit count choracters from addr to the selected output 
device. 


ul u2 --- ud 


Leave the unsigned double product of two unsigned single 
numbers. ‘'u-times’’. 


U -—~= 
Print the value u as a unsigned value. “u-dot"’. 


ud ul --- u2 u3 


Leave the unsigned remainder u2 and the unsigned 
quotient u3 from the unsigned double dividend ud and the 
unsigned divisor ul. "'u-divide’’. 


ud] ul u2 --- ud2 
As M*/, but all values are unsigned. 


f--- (execution) 
addr n--- = (compiling) 


Used within a colon definition in the form: 

BEGIN ... UNTIL 
At run-time, UNTIL controls the conditional branch back to 
BEGIN. If r is false, execution returns to just after BEGIN; if 
true, execution continues ahead. 
At compile time, UNTIL compiles OBRANCH and an offset 
from HERE to adar. n is used for error tests. 


Marks the most recently referenced block (pointed to by 
PREV) as altered. The block will subsequently be trans- 
ferred automatically to disk should its buffer be required 
for a different block. 


--- addr 


A USER variable containing the address of the block buffer 
to use next, as the least recently written. 


nN o-oo 


A defining word used in the form: 

n USER ccc : 
to create a USER variable called cccc. The parameter field 
of cccc contains n as a fixed offset relative to the user 
pointer register UP. When cccc is later executed, the sum of 
its offsets and the user orea base address is pushed to the 
stack as the storage address of that variable. 
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VARIABLE 


A defining word used in the form: 

n VARIABLE cccc 
When VARIABLE is executed, it creates the definition cccc 
with its parameter field initialized to n. When cccc is later 
executed, the address of its parameter field (containing n) 
is left on the stack, so that a fetch or store may access this 
location. 


VIDEO (EDITOR) 
Restore the default I/O devices. Close file 4 to the printer. 
VOC-LINK --- addr 


A USER variable containing the address of a field in the 
definition of the most recently created vocabulary. All 
vocabulary names are linked via these fields to allow for 
FORGET trough multiple vocabularies. 


VOCABULARY 


A defining word used in the form: 
VOCABULARY vvvv 

to create a vocabulary definition www. Subsequent use of 
vvwv will make it the CONTEXT vocabulary which is 
searched first. The phrase vwww DEFINITIONS will also 
make it the CURRENT vocabulary into which new definitions 
are linked. 

In C64-FORTH, wey will be so chained as to include all 
definitions of the vocabulary in which cccc itself is defined. 
All vocabularies therefore ultimately chain to FORTH. By 
convention, vocabularies are to be defined IMMEDIATE. 


VLIST 


List the name of the definitionsin the CONTEXT vocabulary. 
STOP will terminate the listing. 


WARNING ~ --- addr 


A USER variable containing a value controlling messages. 
If=1, disk is present, and screen 4 of Drive 0 is the base 
location for messages. If zero, no disk is present and 
messages will be presented by number. IF=—1, execute 
(ABORT) for a user specified procedure. 


WHERE --- 
Used after an error abort. Prints the number of the screen 
interpreted, and the line on which the error occurred. The 
words after the erring word are reversed. 

WHILE f--- (execution) 


addrin -- addrl nl addr? n2 
Occurs in a colon definition in the form: 

BEGIN ... WHILE ... REPEAT 
At run-time , WHILE selects conditional execution based 
on boolean flag f. If f is true (non-zero), WHILE continues 
execution of the part up to REPEAT, which then jumps back 
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WIDTH 


WORD 


to BEGIN. If false, the structure is terminated. When 
compiling, WHILE emplaces OBRANCH and leaves addr2 
of the reserved offset. The stack values will be resolved by 
REPEAT. 


--- addr 


A USER variable containing the maximum number of 
letters saved in the compilation of a words’ name. It must 
be 1 through 31, with a default value of 31. It may be 
changed by the user. 


Cc -<- 


Read the next text characters from the input stream being 
interpreted, until a delimiter c is found, storing the packed 
character string beginning at HERE. WORD leaves the 
character count in the first byte,the characters, and ends 
with two or more blanks. Leading occurences of c are 
ignored. If BLK is non-zero, it specifies fram what disk block 
to interpret. See BLK and IN. 


Enters the full-screen editor. The current editing screen is 
displayed in the format of 25 lines by 40 columns. You may 
freely change any information in the screen, using the 
cursor keys to move around. Home, insert and delete will 
function as usual. When editing is complete, simply press 
STOP. The screen information will then be retransferred to 
the disk buffer. If you wish to exit the editor without saving 
your changes, press SHIFT and STOP. 

An exit message will always tell if the screen was rewritten 
to the buffer. 

Due to the special screen layout of 25=40, it is impossible to 
use the last 25 bytes in a screen (screen holds only 1000 
characters). You will also note that the very last position on 
the video screen is impossible to reach. Thus, you may use a 
total of 999 bytes in a source screen for text. 


This is a pseudonym for the ‘null’ or dictionary entry for a 
name of ASCII null. It is the execution procedure to 
terminate interpretation of a line of text from the terminal 
or within a disk buffer, as both buffers end with nulls. 


nl n2 --- n3 
Leave the result of a 16-bit exclusive-or of nl and n2. 
n --- (EDITOR) 


Fills screen n with ASCII nulls, marking it as unoccupied.. 


See CLEAR and FREE. 


Used in a colon definition in the form: 
SION ar age! leaded 
Suspend compilation . The subsequent words are inter- 
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[COMPILE} 


preted and not compiled. This allows calculation or 
compilation exceptions before resuming compilation with 
|. See LITERAL. 


Used in a colon definition in the form: 

: xxxx ... [COMPILE] FORTH ... ; 
[COMPILE] will force compilation of the following 
IMMEDIATE word, that otherwise would have been 
executed instead of compiled. The above example will 
select FORTH during execution rather than during the 
compilation of the word xxxx. 


Start compiling, to the completion of the colon definition 
or until [ terminates execution See [. 
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PART 3 - FORTH-79 STANDARD SUPPORT 


The FORTH-79 Standard is a set of conventions and specifications, which, 
when followed, will make it possible to produce completely portable 
FORTH code, which can run on any 79-Standard FORTH system. For your 
convenience, we have made efforts to support the Standard. All you have 
to do is to enter the definitions below. C64-FORTH then becomes a 
Standard FORTH-79 system. For more information on the 79-Standard, 
please refer to the literature list provided. 


FORTH DEFINITIONS 


6 user 50 
: FORTH-79 ; 
: VARIABLE HERE VARIABLE ; 
: 2VARIABLE VARIABLE 2 ALLOT ; 
; CONVERT (NUMBER) ; 
: >IN IN ; 
: 2DUP -DUP ; 
: CREATE VARIABLE -2 ALLOT ; 
: SAVE-BUFFERS = FLUSH; 
: NEGATE MINUS ; 
: DNEGATE DMINUS ; 
; O> MINUS 0< ; 
FIND -FIND DUP IF 2DROP CFA THEN ; 
: EXIT R> DROP ; 
DEPTH SP@ SO @ SWAP - 2/; 
WORD WORD HERE ; 
: MOVE 2* CMOVE ; 
; U/MOD U/; 
:D< ROT 2DUP = IF ROT ROT DMINUS D+ 0< 
ELSE SWAP < SWAP DROP THEN SWAP 
DROP ; 
CODE R@ XSAVE STX, TSX, R LDA, PHA, R 1+ LDA, 
XSAVE LDX, PUSH JMP, END-CODE 
CODE ROLL XSAVE STX, BOT LDA, .A ASL, TAY, 


CLC, XSAVE ADC, TAX, 

BEGIN, DEY, 

NE WHILE, -1 ,X LDA, 1 ,X STA, DEX, REPEAT, 
XSAVE LDX, PLA, BINARY JMP, END-CODE 
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LITERATURE 


This literature list includes all sorts of texts on FORTH: some are textbooks, 
and some are introductory texts. We recommend you to read some of 
them. 


PET-FORTH MANUAL, Datatronic AB, Box 42094, S-126 12 STOCKHOLM, 
SWEDEN. Textbook and User's Reference Manual for PET- 
FORTH, which is o fig-FORTH, and the elder brother of C64- 
FORTH. This manual also describes IEEE file handling, the 
assembler, and most extensions of C64-FORTH. 326 pp paperback. 
Covers most aspects of FORTH programming. 


STARTING FORTH, Leo Brodie, FORTH, Inc., Prentice-Hall. ISBN 0-13- 
842930-8 harbound, ISBN 0-13-842922-7 paperback. 350 pp. A 
very good textbook on FORTH, covering most aspects of the 
language. 


SYSTEMS GUIDE TO FIG-FORTH, Forth Interest Group, PO Box 1105, San 
Carlos, CA 94070. Technical dissectation of a fig-FORTH system. 
Most words are described and their inner workings explained. 
Two assemblers are described in detail. 201 pp softbound. 


KITT PEAK FORTH PRIMER, Forth Interest Group. This textbook describes 
the FORTH system at Kitt Peak National Observatory, which is 
very close to polyFORTH and figFORTH, and thereby to Cé64- 
FORTH. Chapters on Floating Point and Interrupts are included. 
200 pp softbound. 


BYTE MAGAZINE, August 1980 issue. This is an exellent issue of BYTE, that 
is exclusively devoted to the FORTH language and programming 
method. Articles range from pure introductions to more technical. 
A demonstration program (BreakForth, similar to Breakout) is 
described with source code. 


FORTH-79 STANDARD, Forth Interest Group. This paper describes the 
FORTH-79 standard, which is intended to allow transportability 
of standard FORTH programs in source form among standard 
FORTH systems. 45 pp ringbound. 

PROCEEDINGS 1980 FORML (FORTH Modification Lab) CONFERENCE, 
Forth Interest Group. A lot of technical data and suggestions are 
contained in this paper. You will find many interesting concepts 


to think about and work out further. There are also Proceedings 
available for 1981 and 1982. 
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C64-FORTH is a thoroughly tested system, and errors are most unlikely to 
occur. If any errors or weaknesses are found, however, we should 
appreciate to hear from you. Also, drop a line if you have any 
ideas on improvement. 


send all correspondence to: 


DATATRONIC AB 

System Department C64-FORTH 
Box 42094 

S-126 12 STOCKHOLM 
SWEDEN 


Be sure to include the number of the version of C64-FORTH (it is visible on 
the screen after power-on), the complete configuration of your system, 
your name, address, and telephone number. We regret that we cannot 
handle your errand unless it is in writing and includes all of the above data. 
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